﻿Imports OMANE.Common.UI
Imports System.Collections.ObjectModel
Imports System.Windows.Input
Imports System.Windows
Imports System.ComponentModel
Imports OMANE.Modules.TauxGarantis.ViewModels
Imports PTIC_Util
Imports OMANE.Common.Model.Parametrage

Public Class SegmentableValueSelMedicale
    Inherits SegmentableValue(Of Double)
    Sub New(ByVal commandNotificationMethod As Action(Of Object, Object), _
            ByVal modelName As String, _
            ByVal name As String,
            Optional ByVal iscomputed As Boolean = False)
        MyBase.New(commandNotificationMethod, modelName, name, iscomputed)
    End Sub
    Sub New(ByVal commandNotificationMethod As Action(Of Object, Object))
        MyBase.New(commandNotificationMethod)
    End Sub

    Public Property DeroulementMax As Integer
        Get
            Dim param As ParametreSelectionMedicale
            param = SegmentProvider.model.ListeParametres(ModelName)
            Return param.maxDeroulement
        End Get
        Set(ByVal value As Integer)
            OnPropertyChanging("Table")
            Dim param As ParametreSelectionMedicale
            param = SegmentProvider.model.ListeParametres(ModelName)
            param.maxDeroulement = value
            refreshDataTable(ModelName)
            OnPropertyChanged("Table")
        End Set
    End Property
End Class
